home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 47 / 64er_Magazin_Sonderheft_47_19xx_Markt__Technik_de_Side_B.d64 / viza loader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  899b  |  26 lines
  1. 0 rem modified boot  by n.heusler, 3.4.1988, 22:33 uhr (nach james bond)
  2. 1 poke53281,.
  3. 2 ifxythen13
  4. 3 open4,4:poke768,185:print#4:close4:poke768,139:ifst=>.then9
  5. 4 print"[147][150]":poke214,12:poke211,13:sys58732:print"drucker anschalten !
  6. 5 [138]
  7. 9 [153]"load":[151]214,12:[151]211,13:[158]58732:[153]"booting...
  8. 10 print"perforation beachten ? [j/n]
  9. 11 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]11
  10. 12 xy[178]1:[147]"unterl"[170]a$,8,8
  11. 13 [139]a$[178]"j"[167][153]"bitte perforation an abrisskante bringen(taste)
  12. 14 ifa$="j"thenpoke198,.:wait198,1:poke198,.
  13. 16 ifa$="j"thenpoke51514,124:poke51499,116
  14. 17 rem 124 = anzahl zeilen pro blatt
  15. 18 rem 116 = anzahl bedruckte zeilen
  16. 19 rem (c) nh-160788-arr
  17. 20 poke828,.:poke806,217:poke807,195
  18. 30 open4,4,7:print#4:close4
  19. 150 print"[144][147]l[207]"chr$(34)"vw"chr$(34)",8,1
  20. 152 [153]"p(NULL)3774,12:p(NULL)3775,.:p(NULL)3776,.:r(NULL)
  21. 153 rem revision deux a 230789/nh fuer ef
  22. 154 poke198,4:poke631,19:poke632,13:poke633,13:poke634,5
  23. 156 print"":poke214,12:poke211,13:sys58732:print"booting...[144]
  24. 200 [143] copyright is most strenuously reserved
  25. 201 [143]    - our lawyers are watching !!! -
  26.